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**FILE**1D**LPUTCHR 


LL PPPPPPPP UU UU TTTTITTTTT cccccccc 

LL PPPPPPPP UU UU TTTTTTTTTT Cccccccc HH HH RRRRRRRR 

LL PP PP UU UU ae i | cc HH HH RR RR 

LL PP PP UU UU TT cc HH HH RR RR 

LL PP PP UU UU TT cc HH HH RR RR 

LL PP PP UU UU TT cc HH HH RR RR 

LL PPPPPPPP UU UU TT cc HHHHHHHHHH = RRRRRRRR 

LL PPPPPPPP UU UU TT cc HHHHHHHHHH = RRRRRRRR 

LL PP UU UU TT cc HH HH RR RR 

LL PP UU UU TT cc HH HH RR RR 

LL PP UU UU TT cc HH HH RR RR eeee 
LL PP UU UU TT cc HH HH RR RR eeee 
LLLLLLLLLL PP UUUUUUUUUU TT cccccccc HH HH RR RR eeee 
LLLLLLLLLL PP UUUUUUUUUU TT Ccccccccc HH HH RR RR eeee 
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EDTSLPUTCHR = put character into Line buffer p. -1984 VAX-11 Bliss-32 V4.0-74 Page 

° 16- gene] 3b 99: 33; § DISKSVMSMAST FER SEEDY SRCTLPUTCHR.-BLI:1 ° (1) 
001 ZTITLE ‘ED TSLEUTCHR - put character into Line buffer’ 
p § MODULE EDTSLPUTCHR ( ' Put cheracter into line bu 
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“DENT = 'v04-000' LPUTCHR.BLI Edit 
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is COPYRIGHT (c) 1978, 1980, 1982, 1984 
ie DIGITAL EQUIPMENT CORPORATION, " MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie oe SOF TWARE se FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
tt ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
He INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
t® COPIES THEREOF oo NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
't OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE INFORMATION 1°; THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: eoket thn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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i ABSTRACT: 
Put a character into the Line buffer. 


GEAE 


eb aah 4 ss 5 st tk a tt et a a a ts a tt 
- 
a 


] 
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' 
i] 
] 
' 
ENVIRONMENT: Runs at any access mode - AST reentrant 
: AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 
1 
' 
' 
' 
' 
' 
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i MODIFIED BY: 


! 1-001 = Original. DJS 10-MAR-81. This module was created by 

: extracts ing the routine EDTSSPUT_CH from EXEC.BLI. 

! 1-002 = Regularize headers. JBS 20-Mar-1981 

! 1-003 - Improve the appearance of the Listing. JBS 14-Jun-1983 
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! FACILITY: EDT -=- The DEC Standard Editor 
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he EOTeL PUTER - put character into Line buffer 16- sep: 1384 90: 33 $6 


Declarations 14- Ho 0-7 Page 2 


CED 7 sre LPUTCHR.BLI;1 (2) 


; o 9 ! XSBTTL ‘Declarations’ : 
4 ; § 1 ! TABLE OF CONTENTS: H 
: 4 1! $ 
; 5 4 1 3 
: $ 035 REQUIRE "EDTSRC: TRAROUNAM'; : 
3 8 495 1 FORWARD ROUT Ine ; 
H 9 138 1 EDTSSPUT_CH : NOVALUE; $ 
; 60 97 (1 3 
: 63 198 1 INCLUDE FILES 
.-* 280 1! 3 
>; 66 501 1 F 
3 65 5 $ 1 REQUIRE ‘EDTSRC:EDTREQ'; $ 
; @& 6 1 3 
; 67 8 1! : 
; 68 639 1 ! MACROS: ’ 
; 6469 0640 1! F 
3 70 0641 1! NONE $ 
; 71 Bee§ 1! 3 
3 7 064 1 ! EQUATED SYMBOLS: é 
3 7 0644 1! 3 
3 74 0645 1! NONE 3 
3 75 0646 1! 3 
3 76 0647 1 ! OWN STORAGE: 3 
oo 0648 1! 

: 78 0649 1! NONE 

:; 79 0650 1! 

4 80 0651 1 ! EXTERNAL REFERENCES: 

. a 9936 1! 

3; 82 0653 1! In the routine 


6 


bu 
-IDENT \V04-000\ 


-EXTRN 


a 
EDTSLPUTCHR EDTSLPUTCHR = put character into Line buffer 16-Sep-1984 00:55: VAX-11 Bliss-32 V4. 
704-000 EDTSSPUT. CH Pout character into Line buffer 12286871383 99:33:96 DISKSVMSMASTER: CED 
; Bs ° : 1 ZSBTTL 'EDTSSPUT_CH = put character into Line buffer’ 
; : 6 § 1 GLOBAL ROUTINE EDTSS$PUT_CH ( ! Put character into Line buffer 
; 6 1 ! Character to put 
: 8 6 8 1 ) : NOVALUE = 
3 9 6 1 
:; 90 ree 1 tee 
8 4! 28) : } FUNCTIONAL DESCRIPTION: 
: 38 aes : Put character into Line buffer. 
: 95 292 1 i This routine is_used by commends uch as SUBTITUTE which are god! tying a 
; 38 $ 1! Line of text. The new Line is built in the Line buffer (EDTSS$ST_LN_BUF ) by calling 
s 99 667 1! EDTSSPUT_CH to place each chee ter in the buffer. If the number of characters 
: a8 208 : in the Line buffer is already 255, then the new character is not moved. 
: 100 £56 1 | FORMAL PARAMETERS: 
3; 6101 671 1! 
3 106 o76 7: € the character to place in the Line buffer. 
; 1¢ 0673 1! 
; ie pore : IMPLICIT INPUTS: 
: 106 0676 1: EDT$$G_LN_LEN 
: 107 0677 1! EDTSS$T_LN_BUF 
; 108 0678 1! 
3 192 +44 : IMPLICIT OUTPUTS: 
> 411 0681 1! EDTS$T_LN_BUF 
3 Wg Bone 7 2 EDT$$G_LN_LEN 
3s (11 0685 1! 
3 6116 0684 1 ! ROUTINE VALUE: 
He RTE ow 
>: 117 0687 1! 
s 418 0688 1 ! SIDE EFFECTS: 
3: 119 0689 1! 
: 120 0690 1! NONE 
s tel 0691 1! 
3 \s¢ 0692 1 !-- 
: 134 Seo, > sOBEGIN 
> 125 0695 
: 126 0696 EXTERNAL 
; 127 97 EDT$$T_LN_BUF : VECTOR (255, BYTE), 
3 ‘$8 Bens EDTS$G_LN_LEN; 
; 186 4 4 IF (.EDTSS$G_LN_LEN LSS 255) THEN EDTSS$T_LN_BUF C.EDTS$G_LN_LEN]) = .C; 
: 132 070 5 EDT$$G_LN_LEN = .EDTS$$G_LN_LEN + 1; 
: 13 0703 1 END; ! of routine EDTSS$PUT_CH 


-TITLE EDTSLPUTCHR EDTSLPUTCHR - put character into Li 
n er 


EDTSS$T_LN_BUF, EDT$$G_LN_LEN | 


0-74 Page 3 
OSRCSLPUTCHR.BLIh eo” (33 
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CDTSLPUTCHR EDTSLPUTCHR = put character into Line buffer 16-Sep 
v04-000 14-Sep 


99 138t 9 33:68 VAX-11 Bliss-32 V4.0-7 Page 
EDTSSPUT_CH = put character into Line buffer -1984 12:23: 


DISKSVMSMASTER:CEDT. Re LPUTCHR.BLI;1 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


0004 § -ENTRY EDTSSPUT_CH, Save R2 ; 

$2 000000006 09 9 MOVAB EDT$$G_LR_LEN, Re : 

D 0 MOVL EDTSSG iN : 

QOOO0OFF  &F D1 0000 CMPL RO, #25 : 
09 18 0001 BGEQ Ss ; 

0000000060040 04 aC 90 0001 mMOovB oC EDTSST LN BUF CROJ : 
62 06 OO01E 1$: INCL  EDT$$G_LN7LEN ; 

04 0002 RET : 


; Routine Size: 33 bytes, Routine Base: _EDTSCODE + 0000 


134 0 1 
0 1 !<BLF/PAGE> 
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EDT TCHR EDTSLPUTCHR = put character into Line buffer 1-5 Sep-1 VAX-11 Bliss-32 V4.0-74 Pa 
FB bob EDTS$PUT T_CH - out character into Line buffer  14-Sep- 3b 99: 33; § DISKSVMSMASTER: CEDT. SRCJLPUTCHR.BLI;1 _ 
; 138 Oro? | ! END ! of module EDTS$LPUTCHR 
: 139 708 0 ELUDOM 
3 PSECT SUMMARY 
; Name Bytes Attributes 
: EDTSCODE 33 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
Ber oa age te Me ee ea ae SyGhels ssenecee Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28: :CEDT T.SRCJEDT.L32;1 377 0 0 40 00:00.2 
: ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 0:00.1 
: COMMAND QUALIFIERS 
; FL ISS/CHECE OEY SELB, ENE TIAL .OPT IRI EE) /MOTRACEBACK/L [S901 SS tL PUTCHR/GR.J9OB IS HL PUTCHR MSRC$:LPUTCHR.BLI/UPDATE=(ENHS$:LPUTCHR 

sizes 33 code + 0 data bytes 

un Time 00:09.1 
Flapsed. Tine: 09; t1-2 


Lines/CPU Min: 4693 
Levene (Pe Wai 12689 

et Used: 53 pages 
Compilation Complete 
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0136 AH-BT13A-SE. 


